<%
'******************************************************************************************
'#          Openasp CMS software opensource                                               #
'******************************************************************************************
'#      Copyright (C) Luca Becchetti, Broken Ice Interactive                              #
'#                                                                                        #
'# Questo software è gratuito, è possibile ridistribuire e modificare il prodotto         #
'# rispettando i termini della GNU General Public License pubblicata dalla Free           #
'# Software Foundation, si fa riferimento alla versione attuale e a tutte le versioni.    #
'# future                                                                                 #
'#                                                                                        #
'# Il software viene distribuito con lo scopo di essere utile e di aiutare nella          #
'# realizzazione di un sito web, non ci assiumiamo nessuna responsabilità per             #
'# eventuali malfunzionamenti o problemi provenienti dal programma.                       #
'#                                                                                        #
'# E' assolutamente vietato eliminare ogni riferimento di copyright sia all'interno del   #
'# del codice sorgente sia quelli visivi nel progetto.                                    #
'#                                                                                        #
'# Una copia della licenza GNU GPL è rilasciata nel pacchetto di istallazione del         #
'# software.                                                                              #
'#                                                                                        #
'# Per supporto visita il nostro sito ufficiale                                           #
'# http://www.openasp.it                                                                  #
'#                                                                                        #
'#                                                                                        #
'******************************************************************************************
'
i = split(request.ServerVariables("HTTP_URL"), "/")
if strComp("config.asp", i(Ubound(i)), 1) = 0 then
  response.redirect request.servervariables("HTTP_REFERER")
end if
'--------------------------------------------------------------------------------------------
%>
<script language="javascript" type="text/javascript">

/**
FUNZIONE: control_cms_set
DESCRIZIONE: Controlla la corretteza dei dati inseriti da un utente nel form
USO: usata nell'editor del forum
ARGOMENTI: ---

Supporto per mozilla firefox

**/
function control_cms_set(){

 //controllo il campo titolo
 if (window.document.settings.maxpostpage.value <= 0) {
  window.alert("<%=traduci("ling_blog_25")%>");
  window.document.settings.maxpostpage.focus();
  return false;
 }
 //controllo il campo titolo
 if (window.document.settings.maxcommpage.value <= 0) {
  window.alert("<%=traduci("ling_blog_25")%>");
  window.document.settings.maxcommpage.focus();
  return false;
 }
  if (window.document.settings.modparole.value < 0) {
  window.alert("<%=traduci("ling_blog_25")%>");
  window.document.settings.modparole.focus();
  return false;
 }
}
</script>
<%
'---------LIMITO IL BLOCCO SOLO AL SUPERADMIN----------
Call onlySADM()
'------------------------------------------------------
idblog = 1
Select case request.QueryString("pass")
CASE 0, "":
strSQL = "SELECT * FROM tb_blog_blogs WHERE id_blog = " & idblog
Set cmsRS = addConn.Execute(strSQL)
%>
<div id="position">
	<a href="admin.asp" class="testo">Control Center</a> &raquo; <a href="admin.asp?modulo=blog"><%=traduci("ling_blog_14")%></a> &raquo; <%=traduci("ling_blog_13")%>
</div>
<div id="page">
   	<h2><b><%= Ucase(traduci("ling_blog_13")) %></b><br /></h2>
	
	<form name="settings" method="post" action="admin.asp?modulo=blog&amp;op=config&amp;pass=1" onSubmit="return control_cms_set()">
	 
	 <p>
		 <label for="maxpostpage"><small>[1]</small> <%=traduci("ling_blog_28")%></label>
		 <input size="30" name="maxpostpage" maxlength="255" value="<%=cmsRS("maxpostpage")%>" accesskey="1" />
	 </p>
	 	<p>
		 <label for="maxcommpage"><small>[2]</small> <%=traduci("ling_blog_29")%></label>
		 <input size="30" name="maxcommpage" maxlength="255" value="<%=cmsRS("maxcommpage")%>" accesskey="2" />
	 </p>
	<p>
		 <label for="riastext"><small>[3]</small> <%=traduci("ling_blog_30")%></label>
		 <select name="riastext" class="selectclass">
         	<option value="1" <%call selected("1",cmsRS("riastext"))%>><%=traduci("ling_blog_31")%></option>
         	<option value="0" <%call selected("0",cmsRS("riastext"))%>><%=traduci("ling_blog_32")%></option>            
         </select>
	 </p>
	<p>
		 <label for="regcom"><small>[4]</small> <%=traduci("ling_blog_33")%></label>
		 <input type="checkbox" value="si" name="regcom" class="inputclass" <%call checked(1,cmsRS("regcom"))%> />
	 </p>
	<p>
		 <label for="modlink"><small>[5]</small> <%=traduci("ling_blog_34")%></label>
		 <input type="checkbox" value="si" name="modlink" class="inputclass" <%call checked(1,cmsRS("modlink"))%> />
	 </p>
	<p>
		 <label for="modparole"><small>[6]</small> <%=traduci("ling_blog_35")%></label>
		 <input size="30" name="modparole" maxlength="255" value="<%=cmsRS("modparole")%>" accesskey="6" />
	 </p>
	 <p>
		 <small>[s]</small><input type="submit" value="<%=traducisys("ling_111")%>" accesskey="s" />
		 <input type="hidden" name="control" value="cmsset" />
         <input type="hidden" name="blog" value="<%=idblog%>" />
	 </p>
   </form>                    
</div>
<%
 CASE 1:
  if request.form("control") = "cmsset" then
	  'Costruzione stringa SQL per salvataggio dati tabella
  	  strSQL = "UPDATE tb_blog_blogs SET maxpostpage = '"&testSQLinj(request.form("maxpostpage"))&"', "
	  strSQL = strSQL & "maxcommpage = '"&testSQLinj(request.form("maxcommpage"))&"', "
	  strSQL = strSQL & "riastext = '"&testSQLinj(request.form("riastext"))&"', "
	  if request.Form("regcom") = "si" then
	  	ck = 1
	  else
	  	ck = 0
	  end if	
	  strSQL = strSQL & "regcom = '"&ck&"', "
	  if request.Form("modlink") = "si" then
	  	ln = 1
	  else
	  	ln = 0
	  end if	
	  strSQL = strSQL & "modlink = '"&ln&"', "
	  strSQL = strSQL & "modparole = '"&testSQLinj(request.form("modparole"))&"' WHERE id_blog = " & testSQLinj(request.form("blog"))
	  addConn.Execute(strSQL) 	  	  	  	  	  	  	  	  	  	                         
	
	  call autoReturn("admin.asp?modulo=blog&op=config", 2)		
  else
   RESPONSE.Redirect("admin.asp?modulo=blog")
  End if
 End select
%>